home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-29 | 4.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 30 37 3a 33 | 30 20 31 39 39 35 0a 3b | 14:07:3|0 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 66 6f 72 74 |/lisp/mo|des/fort|
|00000090| 72 61 6e 2d 6d 69 73 63 | 2e 65 6c 0a 3b 3b 3b 20 |ran-misc|.el.;;; |
|000000a0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 31 39 |emacs ve|rsion 19|
|000000b0| 2e 31 33 20 58 45 6d 61 | 63 73 20 4c 75 63 69 64 |.13 XEma|cs Lucid|
|000000c0| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000d0| 65 72 73 69 6f 6e 20 32 | 2e 32 35 3b 20 31 2d 53 |ersion 2|.25; 1-S|
|000000e0| 65 70 2d 39 34 2e 0a 3b | 3b 3b 20 6f 70 74 69 6d |ep-94..;|;; optim|
|000000f0| 69 7a 61 74 69 6f 6e 20 | 69 73 20 6f 6e 2e 0a 3b |ization |is on..;|
|00000100| 3b 3b 20 74 68 69 73 20 | 66 69 6c 65 20 75 73 65 |;; this |file use|
|00000110| 73 20 6f 70 63 6f 64 65 | 73 20 77 68 69 63 68 20 |s opcode|s which |
|00000120| 64 6f 20 6e 6f 74 20 65 | 78 69 73 74 20 69 6e 20 |do not e|xist in |
|00000130| 45 6d 61 63 73 20 31 38 | 2e 0a 0a 28 69 66 20 28 |Emacs 18|...(if (|
|00000140| 61 6e 64 20 28 62 6f 75 | 6e 64 70 20 27 65 6d 61 |and (bou|ndp 'ema|
|00000150| 63 73 2d 76 65 72 73 69 | 6f 6e 29 0a 09 20 28 6f |cs-versi|on).. (o|
|00000160| 72 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |r (and (|boundp '|
|00000170| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 20 |epoch::v|ersion) |
|00000180| 65 70 6f 63 68 3a 3a 76 | 65 72 73 69 6f 6e 29 0a |epoch::v|ersion).|
|00000190| 09 20 20 20 20 20 28 73 | 74 72 69 6e 67 2d 6c 65 |. (s|tring-le|
|000001a0| 73 73 70 20 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |ssp emac|s-versio|
|000001b0| 6e 20 22 31 39 22 29 29 | 29 0a 20 20 20 20 28 65 |n "19"))|). (e|
|000001c0| 72 72 6f 72 20 22 54 68 | 69 73 20 66 69 6c 65 20 |rror "Th|is file |
|000001d0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001e0| 20 45 6d 61 63 73 20 31 | 39 2e 22 29 29 0a 0a 28 | Emacs 1|9."))..(|
|000001f0| 66 73 65 74 20 27 66 6f | 72 74 72 61 6e 2d 66 69 |fset 'fo|rtran-fi|
|00000200| 6c 6c 2d 73 74 61 74 65 | 6d 65 6e 74 20 23 5b 6e |ll-state|ment #[n|
|00000210| 69 6c 20 22 8a c0 79 88 | c1 c2 21 ae 8d c1 0b 21 |il "..y.|..!....!|
|00000220| ae 88 0c ad 85 c1 c5 0c | 50 21 29 ab 83 c6 20 87 |........|P!)... .|
|00000230| 60 c7 89 1e 08 1e 09 1e | 5c 6e 8a cb 20 88 cc 20 |`.......|\n.. .. |
|00000240| 88 cd 20 16 08 60 16 09 | 29 8a 0e 09 62 88 8a 0e |.. ..`..|)...b...|
|00000250| 08 ce 20 55 ab 8d cf d0 | 60 d1 5c 5c d2 23 ab 89 |.. U....|`.\\.#..|
|00000260| d3 20 ac 85 d4 0e 08 21 | 88 29 d5 79 88 c1 d6 21 |. .....!|.).y...!|
|00000270| ac 85 c1 d7 21 ab 8c d8 | 20 88 d9 da 21 88 db 20 |....!...| ...!.. |
|00000280| 88 aa 67 cc 20 88 8a c7 | 7f 88 69 29 0e 1c 56 ab |..g. ...|..i)..V.|
|00000290| 83 dd 20 88 29 60 0e 5c | 6e 57 ab 84 0e 5c 6e 62 |.. .)`.\|nW...\nb|
|000002a0| 88 cd 20 1e 08 69 0e 08 | 57 ad 84 de 0e 08 21 2c |.. ..i..|W.....!,|
|000002b0| 87 22 20 5b 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |." [0 lo|oking-at|
|000002c0| 20 22 5b 20 09 5d 2a 24 | 22 20 63 6f 6d 6d 65 6e | "[ .]*$|" commen|
|000002d0| 74 2d 6c 69 6e 65 2d 73 | 74 61 72 74 2d 73 6b 69 |t-line-s|tart-ski|
|000002e0| 70 20 63 6f 6d 6d 65 6e | 74 2d 73 74 61 72 74 2d |p commen|t-start-|
|000002f0| 73 6b 69 70 20 22 5b 20 | 09 5d 2a 22 20 66 6f 72 |skip "[ |.]*" for|
|00000300| 74 72 61 6e 2d 69 6e 64 | 65 6e 74 2d 6c 69 6e 65 |tran-ind|ent-line|
|00000310| 20 6e 69 6c 20 63 66 69 | 20 62 65 67 20 6f 70 6f | nil cfi| beg opo|
|00000320| 73 20 66 6f 72 74 72 61 | 6e 2d 6e 65 78 74 2d 73 |s fortra|n-next-s|
|00000330| 74 61 74 65 6d 65 6e 74 | 20 66 6f 72 74 72 61 6e |tatement| fortran|
|00000340| 2d 70 72 65 76 69 6f 75 | 73 2d 73 74 61 74 65 6d |-previou|s-statem|
|00000350| 65 6e 74 20 63 61 6c 63 | 75 6c 61 74 65 2d 66 6f |ent calc|ulate-fo|
|00000360| 72 74 72 61 6e 2d 69 6e | 64 65 6e 74 20 66 6f 72 |rtran-in|dent for|
|00000370| 74 72 61 6e 2d 63 75 72 | 72 65 6e 74 2d 6c 69 6e |tran-cur|rent-lin|
|00000380| 65 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 72 65 |e-indent|ation re|
|00000390| 2d 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 |-search-|forward |
|000003a0| 22 5e 5b 20 09 5d 2a 5b | 30 2d 39 5d 2b 22 20 34 |"^[ .]*[|0-9]+" 4|
|000003b0| 20 74 20 66 6f 72 74 72 | 61 6e 2d 6c 69 6e 65 2d | t fortr|an-line-|
|000003c0| 6e 75 6d 62 65 72 2d 69 | 6e 64 65 6e 74 65 64 2d |number-i|ndented-|
|000003d0| 63 6f 72 72 65 63 74 6c | 79 2d 70 20 66 6f 72 74 |correctl|y-p fort|
|000003e0| 72 61 6e 2d 69 6e 64 65 | 6e 74 2d 74 6f 2d 63 6f |ran-inde|nt-to-co|
|000003f0| 6c 75 6d 6e 20 31 20 22 | 20 20 20 20 20 5b 5e 20 |lumn 1 "| [^ |
|00000400| 30 5c 6e 5d 22 20 22 09 | 5b 31 2d 39 5d 22 20 64 |0\n]" ".|[1-9]" d|
|00000410| 65 6c 65 74 65 2d 69 6e | 64 65 6e 74 61 74 69 6f |elete-in|dentatio|
|00000420| 6e 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 32 20 |n delete|-char 2 |
|00000430| 64 65 6c 65 74 65 2d 68 | 6f 72 69 7a 6f 6e 74 61 |delete-h|orizonta|
|00000440| 6c 2d 73 70 61 63 65 20 | 66 69 6c 6c 2d 63 6f 6c |l-space |fill-col|
|00000450| 75 6d 6e 20 66 6f 72 74 | 72 61 6e 2d 64 6f 2d 61 |umn fort|ran-do-a|
|00000460| 75 74 6f 2d 66 69 6c 6c | 20 6d 6f 76 65 2d 74 6f |uto-fill| move-to|
|00000470| 2d 63 6f 6c 75 6d 6e 5d | 20 34 20 22 5c 0a 46 69 |-column]| 4 "\.Fi|
|00000480| 6c 6c 20 61 20 66 6f 72 | 74 72 61 6e 20 73 74 61 |ll a for|tran sta|
|00000490| 74 65 6d 65 6e 74 20 75 | 70 20 74 6f 20 60 66 69 |tement u|p to `fi|
|000004a0| 6c 6c 2d 63 6f 6c 75 6d | 6e 27 2e 22 20 6e 69 6c |ll-colum|n'." nil|
|000004b0| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|000004c0| 6e 2d 64 6f 77 6e 63 61 | 73 65 2d 73 75 62 70 72 |n-downca|se-subpr|
|000004d0| 6f 67 72 61 6d 20 23 5b | 6e 69 6c 20 22 8a c0 20 |ogram #[|nil ".. |
|000004e0| 88 c1 c2 21 88 c3 60 c4 | 20 5c 22 88 29 c1 c5 21 |...!..`.| \".)..!|
|000004f0| 87 22 20 5b 6d 61 72 6b | 2d 66 6f 72 74 72 61 6e |." [mark|-fortran|
|00000500| 2d 73 75 62 70 72 6f 67 | 72 61 6d 20 6d 65 73 73 |-subprog|ram mess|
|00000510| 61 67 65 20 22 44 6f 77 | 6e 63 61 73 69 6e 67 20 |age "Dow|ncasing |
|00000520| 73 75 62 70 72 6f 67 72 | 61 6d 2e 2e 2e 22 20 66 |subprogr|am..." f|
|00000530| 6f 72 74 72 61 6e 2d 64 | 6f 77 6e 63 61 73 65 2d |ortran-d|owncase-|
|00000540| 72 65 67 69 6f 6e 20 6d | 61 72 6b 20 22 44 6f 77 |region m|ark "Dow|
|00000550| 6e 63 61 73 69 6e 67 20 | 73 75 62 70 72 6f 67 72 |ncasing |subprogr|
|00000560| 61 6d 2e 2e 2e 64 6f 6e | 65 2e 22 5d 20 33 20 22 |am...don|e."] 3 "|
|00000570| 5c 0a 50 72 6f 70 65 72 | 6c 79 20 64 6f 77 6e 63 |\.Proper|ly downc|
|00000580| 61 73 65 73 20 74 68 65 | 20 46 6f 72 74 72 61 6e |ases the| Fortran|
|00000590| 20 73 75 62 70 72 6f 67 | 72 61 6d 20 77 68 69 63 | subprog|ram whic|
|000005a0| 68 20 63 6f 6e 74 61 69 | 6e 73 20 70 6f 69 6e 74 |h contai|ns point|
|000005b0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|000005c0| 66 6f 72 74 72 61 6e 2d | 64 6f 77 6e 63 61 73 65 |fortran-|downcase|
|000005d0| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 73 74 61 72 74 |-region |#[(start|
|000005e0| 20 65 6e 64 29 20 22 c0 | 09 5c 6e c3 23 87 22 20 | end) ".|.\n.#." |
|000005f0| 5b 66 6f 72 74 72 61 6e | 2d 63 61 73 65 2d 72 65 |[fortran|-case-re|
|00000600| 67 69 6f 6e 20 73 74 61 | 72 74 20 65 6e 64 20 6e |gion sta|rt end n|
|00000610| 69 6c 5d 20 34 20 22 5c | 0a 44 6f 77 6e 63 61 73 |il] 4 "\|.Downcas|
|00000620| 65 20 72 65 67 69 6f 6e | 2c 20 65 78 63 6c 75 64 |e region|, exclud|
|00000630| 69 6e 67 20 63 6f 6d 6d | 65 6e 74 20 6c 69 6e 65 |ing comm|ent line|
|00000640| 73 20 61 6e 64 20 61 6e | 79 74 68 69 6e 67 0a 62 |s and an|ything.b|
|00000650| 65 74 77 65 65 6e 20 71 | 75 6f 74 65 20 6d 61 72 |etween q|uote mar|
|00000660| 6b 73 2e 22 20 22 72 22 | 5d 29 0a 28 66 73 65 74 |ks." "r"|]).(fset|
|00000670| 20 27 66 6f 72 74 72 61 | 6e 2d 75 70 63 61 73 65 | 'fortra|n-upcase|
|00000680| 2d 72 65 67 69 6f 6e 20 | 23 5b 28 73 74 61 72 74 |-region |#[(start|
|00000690| 20 65 6e 64 29 20 22 c0 | 09 5c 6e c3 23 87 22 20 | end) ".|.\n.#." |
|000006a0| 5b 66 6f 72 74 72 61 6e | 2d 63 61 73 65 2d 72 65 |[fortran|-case-re|
|000006b0| 67 69 6f 6e 20 73 74 61 | 72 74 20 65 6e 64 20 74 |gion sta|rt end t|
|000006c0| 5d 20 34 20 22 5c 0a 55 | 70 63 61 73 65 20 72 65 |] 4 "\.U|pcase re|
|000006d0| 67 69 6f 6e 2c 20 65 78 | 63 6c 75 64 69 6e 67 20 |gion, ex|cluding |
|000006e0| 63 6f 6d 6d 65 6e 74 20 | 6c 69 6e 65 73 20 61 6e |comment |lines an|
|000006f0| 64 20 61 6e 79 74 68 69 | 6e 67 0a 62 65 74 77 65 |d anythi|ng.betwe|
|00000700| 65 6e 20 71 75 6f 74 65 | 20 6d 61 72 6b 73 2e 22 |en quote| marks."|
|00000710| 20 22 72 22 5d 29 0a 28 | 66 73 65 74 20 27 66 6f | "r"]).(|fset 'fo|
|00000720| 72 74 72 61 6e 2d 75 70 | 63 61 73 65 2d 73 75 62 |rtran-up|case-sub|
|00000730| 70 72 6f 67 72 61 6d 20 | 23 5b 6e 69 6c 20 22 8a |program |#[nil ".|
|00000740| c0 20 88 c1 c2 21 88 c3 | 60 c4 20 5c 22 88 29 c1 |. ...!..|`. \".).|
|00000750| c5 21 87 22 20 5b 6d 61 | 72 6b 2d 66 6f 72 74 72 |.!." [ma|rk-fortr|
|00000760| 61 6e 2d 73 75 62 70 72 | 6f 67 72 61 6d 20 6d 65 |an-subpr|ogram me|
|00000770| 73 73 61 67 65 20 22 55 | 70 63 61 73 69 6e 67 20 |ssage "U|pcasing |
|00000780| 73 75 62 70 72 6f 67 72 | 61 6d 2e 2e 2e 22 20 66 |subprogr|am..." f|
|00000790| 6f 72 74 72 61 6e 2d 75 | 70 63 61 73 65 2d 72 65 |ortran-u|pcase-re|
|000007a0| 67 69 6f 6e 20 6d 61 72 | 6b 20 22 55 70 63 61 73 |gion mar|k "Upcas|
|000007b0| 69 6e 67 20 73 75 62 70 | 72 6f 67 72 61 6d 2e 2e |ing subp|rogram..|
|000007c0| 2e 64 6f 6e 65 2e 22 5d | 20 33 20 22 5c 0a 50 72 |.done."]| 3 "\.Pr|
|000007d0| 6f 70 65 72 6c 79 20 75 | 70 63 61 73 65 73 20 74 |operly u|pcases t|
|000007e0| 68 65 20 46 6f 72 74 72 | 61 6e 20 73 75 62 70 72 |he Fortr|an subpr|
|000007f0| 6f 67 72 61 6d 20 77 68 | 69 63 68 20 63 6f 6e 74 |ogram wh|ich cont|
|00000800| 61 69 6e 73 20 70 6f 69 | 6e 74 2e 22 20 6e 69 6c |ains poi|nt." nil|
|00000810| 5d 29 0a 28 66 73 65 74 | 20 27 66 6f 72 74 72 61 |]).(fset| 'fortra|
|00000820| 6e 2d 63 61 73 65 2d 72 | 65 67 69 6f 6e 20 23 5b |n-case-r|egion #[|
|00000830| 28 73 74 61 72 74 20 65 | 6e 64 20 75 70 29 20 22 |(start e|nd up) "|
|00000840| c0 19 c2 1b c4 1d c6 1e | 07 c8 c9 21 1e 5c 6e cb |........|...!.\n.|
|00000850| 0e 5c 6e cc 51 1e 0d ce | 1e 0f ce 1e 10 8a 8c 0e |.\n.Q...|........|
|00000860| 11 0e 12 7d 88 65 62 88 | d3 09 0b 5c 22 ab 87 d4 |...}.eb.|...\"...|
|00000870| 0b 0e 12 d5 23 88 d3 0d | 0e 07 5c 22 ab 88 d4 0e |....#...|..\"....|
|00000880| 07 0e 12 d5 23 88 d3 0e | 5c 6e 0e 0d 5c 22 ab 88 |....#...|\n..\"..|
|00000890| d4 0e 0d 0e 12 d5 23 88 | 60 16 0f 60 64 57 ad d8 |......#.|`..`dW..|
|000008a0| d4 cb 09 d6 0d d6 0e 5c | 6e d7 b0 07 0e 12 d5 23 |.......\|n......#|
|000008b0| 88 60 16 10 0e 18 ab 89 | d9 0e 0f 0e 10 5c 22 88 |.`......|.....\".|
|000008c0| aa 87 da 0e 0f 0e 10 5c | 22 88 d3 09 0b 5c 22 ab |.......\|"....\".|
|000008d0| 87 d4 0b 0e 12 d5 23 88 | d3 0d 0e 07 5c 22 ab 88 |......#.|....\"..|
|000008e0| d4 0e 07 0e 12 d5 23 88 | d3 0e 5c 6e 0e 0d 5c 22 |......#.|..\n..\"|
|000008f0| ab 88 d4 0e 0d 0e 12 d5 | 23 88 60 16 0f aa 23 2e |........|#.`...#.|
|00000900| 5c 6e 87 22 20 5b 22 5e | 5b 63 43 2a 23 5d 22 20 |\n." ["^|[cC*#]" |
|00000910| 73 74 61 72 74 2d 72 65 | 2d 63 6f 6d 6d 65 6e 74 |start-re|-comment|
|00000920| 20 22 24 22 20 65 6e 64 | 2d 72 65 2d 63 6f 6d 6d | "$" end|-re-comm|
|00000930| 65 6e 74 20 22 27 22 20 | 73 74 61 72 74 2d 72 65 |ent "'" |start-re|
|00000940| 2d 71 75 6f 74 65 20 22 | 5c 5c 28 27 5c 5c 7c 24 |-quote "|\\('\\|$|
|00000950| 5c 5c 29 22 20 65 6e 64 | 2d 72 65 2d 71 75 6f 74 |\\)" end|-re-quot|
|00000960| 65 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |e char-t|o-string|
|00000970| 20 33 34 20 73 74 61 72 | 74 2d 72 65 2d 64 71 75 | 34 star|t-re-dqu|
|00000980| 6f 74 65 20 22 5c 5c 28 | 22 20 22 5c 5c 7c 24 5c |ote "\\(|" "\\|$\|
|00000990| 5c 29 22 20 65 6e 64 2d | 72 65 2d 64 71 75 6f 74 |\)" end-|re-dquot|
|000009a0| 65 20 6e 69 6c 20 73 74 | 72 74 20 66 69 6e 20 73 |e nil st|rt fin s|
|000009b0| 74 61 72 74 20 65 6e 64 | 20 69 6e 73 69 64 65 2d |tart end| inside-|
|000009c0| 72 65 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |re re-se|arch-for|
|000009d0| 77 61 72 64 20 30 20 22 | 5c 5c 7c 22 20 22 5c 5c |ward 0 "|\\|" "\\|
|000009e0| 29 22 20 75 70 20 75 70 | 63 61 73 65 2d 72 65 67 |)" up up|case-reg|
|000009f0| 69 6f 6e 20 64 6f 77 6e | 63 61 73 65 2d 72 65 67 |ion down|case-reg|
|00000a00| 69 6f 6e 5d 20 38 20 22 | 5c 0a 55 70 63 61 73 65 |ion] 8 "|\.Upcase|
|00000a10| 20 72 65 67 69 6f 6e 20 | 69 66 20 55 50 20 69 73 | region |if UP is|
|00000a20| 20 74 2c 20 64 6f 77 6e | 63 61 73 65 2c 20 69 66 | t, down|case, if|
|00000a30| 20 55 50 20 64 6f 77 6e | 63 61 73 65 20 72 65 67 | UP down|case reg|
|00000a40| 69 6f 6e 2c 0a 20 65 78 | 63 6c 75 64 69 6e 67 20 |ion,. ex|cluding |
|00000a50| 63 6f 6d 6d 65 6e 74 20 | 6c 69 6e 65 73 20 61 6e |comment |lines an|
|00000a60| 64 20 61 6e 79 74 68 69 | 6e 67 20 62 65 74 77 65 |d anythi|ng betwe|
|00000a70| 65 6e 20 71 75 6f 74 65 | 20 6d 61 72 6b 73 2e 22 |en quote| marks."|
|00000a80| 5d 29 0a 28 66 73 65 74 | 20 27 69 6e 73 69 64 65 |]).(fset| 'inside|
|00000a90| 2d 72 65 20 23 5b 28 73 | 74 61 72 74 2d 72 65 20 |-re #[(s|tart-re |
|00000aa0| 65 6e 64 2d 72 65 29 20 | 22 c0 89 19 1a 8a c3 79 |end-re) |"......y|
|00000ab0| 88 60 12 c0 7f 88 60 11 | 29 8a c4 0d 5c 6e c6 23 |.`....`.|)...\n.#|
|00000ac0| 29 ad 8b 8a c7 0e 08 09 | c6 23 29 ad 81 c6 2a 87 |).......|.#)...*.|
|00000ad0| 22 20 5b 6e 69 6c 20 65 | 6e 64 2d 6c 69 6e 65 20 |" [nil e|nd-line |
|00000ae0| 73 74 61 72 74 2d 6c 69 | 6e 65 20 30 20 72 65 2d |start-li|ne 0 re-|
|00000af0| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 20 |search-b|ackward |
|00000b00| 73 74 61 72 74 2d 72 65 | 20 74 20 72 65 2d 73 65 |start-re| t re-se|
|00000b10| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 65 6e 64 |arch-for|ward end|
|00000b20| 2d 72 65 5d 20 34 20 22 | 5c 0a 52 65 74 75 72 6e |-re] 4 "|\.Return|
|00000b30| 73 20 74 20 69 66 20 69 | 6e 73 69 64 65 20 61 20 |s t if i|nside a |
|00000b40| 73 74 61 72 74 69 6e 67 | 20 72 65 67 65 78 70 20 |starting| regexp |
|00000b50| 61 6e 64 20 61 6e 20 65 | 6e 64 69 6e 67 20 72 65 |and an e|nding re|
|00000b60| 67 65 78 70 0a 6f 6e 20 | 74 68 65 20 73 61 6d 65 |gexp.on |the same|
|00000b70| 20 6c 69 6e 65 2e 22 20 | 22 73 22 5d 29 0a 28 66 | line." |"s"]).(f|
|00000b80| 73 65 74 20 27 66 6f 72 | 74 72 61 6e 2d 62 65 61 |set 'for|tran-bea|
|00000b90| 75 74 69 66 79 2d 73 75 | 62 70 72 6f 67 72 61 6d |utify-su|bprogram|
|00000ba0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 64 6f | #[(&opt|ional do|
|00000bb0| 77 6e 69 74 29 20 22 8a | c0 20 88 c1 c2 21 88 c3 |wnit) ".|. ...!..|
|00000bc0| 60 c4 20 0d 23 88 29 c1 | c6 21 87 22 20 5b 6d 61 |`. .#.).|.!." [ma|
|00000bd0| 72 6b 2d 66 6f 72 74 72 | 61 6e 2d 73 75 62 70 72 |rk-fortr|an-subpr|
|00000be0| 6f 67 72 61 6d 20 6d 65 | 73 73 61 67 65 20 22 42 |ogram me|ssage "B|
|00000bf0| 65 61 75 74 69 66 79 69 | 6e 67 20 73 75 62 70 72 |eautifyi|ng subpr|
|00000c00| 6f 67 72 61 6d 2e 2e 2e | 22 20 66 6f 72 74 72 61 |ogram...|" fortra|
|00000c10| 6e 2d 62 65 61 75 74 69 | 66 79 2d 72 65 67 69 6f |n-beauti|fy-regio|
|00000c20| 6e 20 6d 61 72 6b 20 64 | 6f 77 6e 69 74 20 22 42 |n mark d|ownit "B|
|00000c30| 65 61 75 74 69 66 79 20 | 73 75 62 70 72 6f 67 72 |eautify |subprogr|
|00000c40| 61 6d 2e 2e 2e 64 6f 6e | 65 2e 22 5d 20 34 20 22 |am...don|e."] 4 "|
|00000c50| 5c 0a 42 65 61 75 74 69 | 66 79 20 46 6f 72 74 72 |\.Beauti|fy Fortr|
|00000c60| 61 6e 20 73 75 62 70 72 | 6f 67 72 61 6d 3a 0a 31 |an subpr|ogram:.1|
|00000c70| 29 20 52 65 6d 6f 76 65 | 20 74 72 61 69 6c 69 6e |) Remove| trailin|
|00000c80| 67 20 62 6c 61 6e 6b 73 | 2e 0a 32 29 20 52 65 70 |g blanks|..2) Rep|
|00000c90| 6c 61 63 65 20 61 6c 6c | 20 63 6f 6e 74 69 6e 75 |lace all| continu|
|00000ca0| 61 74 69 6f 6e 20 63 68 | 61 72 61 63 74 65 72 73 |ation ch|aracters|
|00000cb0| 20 77 69 74 68 20 66 6f | 72 74 72 61 6e 2d 63 6f | with fo|rtran-co|
|00000cc0| 6e 74 69 6e 75 61 74 69 | 6f 6e 2d 63 68 61 72 2e |ntinuati|on-char.|
|00000cd0| 0a 33 29 20 52 65 70 6c | 61 63 65 20 61 6c 6c 20 |.3) Repl|ace all |
|00000ce0| 65 6d 70 74 79 20 63 6f | 6d 6d 65 6e 74 20 6c 69 |empty co|mment li|
|00000cf0| 6e 65 73 20 77 69 74 68 | 20 62 6c 61 6e 6b 20 6c |nes with| blank l|
|00000d00| 69 6e 65 73 2e 0a 34 29 | 20 52 65 70 6c 61 63 65 |ines..4)| Replace|
|00000d10| 20 61 6c 6c 20 6d 75 6c | 74 69 70 6c 65 20 62 6c | all mul|tiple bl|
|00000d20| 61 6e 6b 20 6c 69 6e 65 | 73 20 77 69 74 68 20 6f |ank line|s with o|
|00000d30| 6e 65 20 62 6c 61 6e 6b | 20 6c 69 6e 65 2e 0a 35 |ne blank| line..5|
|00000d40| 29 20 49 6e 64 65 6e 74 | 2e 0a 36 29 20 57 69 74 |) Indent|..6) Wit|
|00000d50| 68 20 70 72 65 66 69 78 | 20 61 72 67 2c 20 64 6f |h prefix| arg, do|
|00000d60| 77 6e 63 61 73 65 20 74 | 68 65 20 73 75 62 70 72 |wncase t|he subpr|
|00000d70| 6f 67 72 61 6d 2c 20 61 | 76 6f 69 64 69 6e 67 20 |ogram, a|voiding |
|00000d80| 63 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 0a 71 75 6f |comments| and.quo|
|00000d90| 74 65 64 20 73 74 72 69 | 6e 67 73 2e 22 20 22 50 |ted stri|ngs." "P|
|00000da0| 22 5d 29 0a 28 66 73 65 | 74 20 27 66 6f 72 74 72 |"]).(fse|t 'fortr|
|00000db0| 61 6e 2d 62 65 61 75 74 | 69 66 79 2d 72 65 67 69 |an-beaut|ify-regi|
|00000dc0| 6f 6e 20 23 5b 28 73 74 | 61 72 74 20 65 6e 64 20 |on #[(st|art end |
|00000dd0| 26 6f 70 74 69 6f 6e 61 | 6c 20 64 6f 77 6e 69 74 |&optiona|l downit|
|00000de0| 29 20 22 8a 8c c0 20 c0 | 20 19 89 1a 0b c4 93 88 |) "... .| .......|
|00000df0| 09 0d c4 93 88 c6 0b 0d | c4 23 88 5c 6e 09 7d 88 |........|.#.\n.}.|
|00000e00| 65 62 88 c7 c8 c9 c4 ca | c4 25 88 65 62 88 c7 cb |eb......|.%.eb...|
|00000e10| 0e 0c cd 51 ce 0e 0c 50 | c4 ca c4 25 88 65 62 88 |...Q...P|...%.eb.|
|00000e20| c7 cf c9 c4 ca c4 25 88 | 65 62 88 c7 d0 d1 c4 ca |......%.|eb......|
|00000e30| c4 25 88 0e 12 ad 84 d3 | 65 64 5c 22 2c 87 22 20 |.%......|ed\",." |
|00000e40| 5b 6d 61 6b 65 2d 6d 61 | 72 6b 65 72 20 6d 32 20 |[make-ma|rker m2 |
|00000e50| 6d 31 20 73 74 61 72 74 | 20 6e 69 6c 20 65 6e 64 |m1 start| nil end|
|00000e60| 20 69 6e 64 65 6e 74 2d | 72 65 67 69 6f 6e 20 70 | indent-|region p|
|00000e70| 65 72 66 6f 72 6d 2d 72 | 65 70 6c 61 63 65 20 22 |erform-r|eplace "|
|00000e80| 5b 20 09 5d 2b 24 22 20 | 22 22 20 74 20 22 5e 20 |[ .]+$" |"" t "^ |
|00000e90| 20 20 20 20 5b 5e 20 22 | 20 66 6f 72 74 72 61 6e | [^ "| fortran|
|00000ea0| 2d 63 6f 6e 74 69 6e 75 | 61 74 69 6f 6e 2d 73 74 |-continu|ation-st|
|00000eb0| 72 69 6e 67 20 22 5d 22 | 20 22 20 20 20 20 20 22 |ring "]"| " "|
|00000ec0| 20 22 5e 5b 63 43 5d 5b | 20 09 5d 2a 24 22 20 22 | "^[cC][| .]*$" "|
|00000ed0| 5c 6e 5c 6e 5c 6e 2b 22 | 20 22 5c 6e 5c 6e 22 20 |\n\n\n+"| "\n\n" |
|00000ee0| 64 6f 77 6e 69 74 20 66 | 6f 72 74 72 61 6e 2d 64 |downit f|ortran-d|
|00000ef0| 6f 77 6e 63 61 73 65 2d | 72 65 67 69 6f 6e 5d 20 |owncase-|region] |
|00000f00| 37 20 22 5c 0a 42 65 61 | 75 74 69 66 79 20 72 65 |7 "\.Bea|utify re|
|00000f10| 67 69 6f 6e 20 69 6e 20 | 61 20 46 6f 72 74 72 61 |gion in |a Fortra|
|00000f20| 6e 20 70 72 6f 67 72 61 | 6d 3a 0a 31 29 20 52 65 |n progra|m:.1) Re|
|00000f30| 6d 6f 76 65 20 74 72 61 | 69 6c 69 6e 67 20 62 6c |move tra|iling bl|
|00000f40| 61 6e 6b 73 2e 0a 32 29 | 20 52 65 70 6c 61 63 65 |anks..2)| Replace|
|00000f50| 20 61 6c 6c 20 63 6f 6e | 74 69 6e 75 61 74 69 6f | all con|tinuatio|
|00000f60| 6e 20 63 68 61 72 61 63 | 74 65 72 73 20 77 69 74 |n charac|ters wit|
|00000f70| 68 20 66 6f 72 74 72 61 | 6e 2d 63 6f 6e 74 69 6e |h fortra|n-contin|
|00000f80| 75 61 74 69 6f 6e 2d 63 | 68 61 72 2e 0a 33 29 20 |uation-c|har..3) |
|00000f90| 52 65 70 6c 61 63 65 20 | 61 6c 6c 20 65 6d 70 74 |Replace |all empt|
|00000fa0| 79 20 63 6f 6d 6d 65 6e | 74 20 6c 69 6e 65 73 20 |y commen|t lines |
|00000fb0| 77 69 74 68 20 62 6c 61 | 6e 6b 20 6c 69 6e 65 73 |with bla|nk lines|
|00000fc0| 2e 0a 34 29 20 52 65 70 | 6c 61 63 65 20 61 6c 6c |..4) Rep|lace all|
|00000fd0| 20 6d 75 6c 74 69 70 6c | 65 20 62 6c 61 6e 6b 20 | multipl|e blank |
|00000fe0| 6c 69 6e 65 73 20 77 69 | 74 68 20 6f 6e 65 20 62 |lines wi|th one b|
|00000ff0| 6c 61 6e 6b 20 6c 69 6e | 65 2e 0a 35 29 20 49 6e |lank lin|e..5) In|
|00001000| 64 65 6e 74 2e 0a 36 29 | 20 57 69 74 68 20 70 72 |dent..6)| With pr|
|00001010| 65 66 69 78 20 61 72 67 | 2c 20 64 6f 77 6e 63 61 |efix arg|, downca|
|00001020| 73 65 20 74 68 65 20 72 | 65 67 69 6f 6e 2c 20 61 |se the r|egion, a|
|00001030| 76 6f 69 64 69 6e 67 20 | 63 6f 6d 6d 65 6e 74 73 |voiding |comments|
|00001040| 20 61 6e 64 0a 20 71 75 | 6f 74 65 64 20 73 74 72 | and. qu|oted str|
|00001050| 69 6e 67 73 2e 22 20 22 | 72 5c 6e 50 22 5d 29 0a |ings." "|r\nP"]).|
+--------+-------------------------+-------------------------+--------+--------+
